home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Camelot
/
Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].zip
/
Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].adf
/
XLisp-Stat
/
Test
/
man2.lsp
< prev
next >
Wrap
Text File
|
1990-10-11
|
3KB
|
75 lines
(setf man (send graph-window-proto :new))
(make-color 'pink .6 1 1)
(send man :draw-color 'pink)
(send man :paint-oval 170 100 60 50)
(send man :paint-rect 198 120 5 15)
(send man :paint-rect 185 140 30 3)
(send man :paint-rect 165 120 5 10)
(send man :paint-rect 165 120 5 10)
(send man :paint-rect 230 120 5 10)
(send man :paint-rect 190 150 20 10)
(send man :paint-rect 60 140 20 50)
(send man :paint-rect 58 130 25 10)
(send man :paint-rect 58 125 6 5)
(send man :paint-rect 64 120 6 10)
(send man :paint-rect 70 115 6 15)
(send man :paint-rect 76 120 6 10)
(send man :paint-rect 83 130 5 4)
(send man :paint-rect 320 160 20 50)
(send man :paint-rect 318 210 25 10)
(send man :paint-rect 313 215 5 5)
(send man :paint-rect 337 220 6 5)
(send man :paint-rect 331 220 6 7)
(send man :paint-rect 325 220 6 10)
(send man :paint-rect 319 220 6 7)
(send man :draw-color 'red)
(send man :paint-rect 130 160 140 80)
(send man :paint-rect 80 160 50 30)
(send man :paint-rect 270 160 50 30)
(send man :draw-color 'blue)
(send man :paint-rect 128 240 144 40)
(send man :paint-rect 128 280 42 40)
(send man :paint-rect 230 280 42 40)
(send man :paint-oval 185 115 5 5)
(send man :paint-oval 210 115 5 5)
(send man :paint-oval 198 170 4 4)
(send man :paint-oval 198 185 4 4)
(send man :paint-oval 198 200 4 4)
(send man :paint-oval 198 215 4 4)
(send man :paint-oval 198 230 4 4)
(send man :draw-color 'green)
(send man :paint-rect 130 320 38 20)
(send man :paint-rect 232 320 38 20)
(send man :draw-color 'black)
(send man :frame-oval 170 100 60 50)
(send man :frame-oval 185 115 5 5)
(send man :frame-oval 210 115 5 5)
(send man :frame-rect 198 120 5 15)
(send man :frame-rect 185 140 30 3)
(send man :frame-rect 165 120 5 10)
(send man :frame-rect 165 120 5 10)
(send man :frame-rect 230 120 5 10)
(send man :frame-rect 190 150 20 10)
(send man :frame-rect 60 140 20 50)
(send man :frame-rect 58 130 25 10)
(send man :frame-rect 58 125 6 5)
(send man :frame-rect 64 120 6 10)
(send man :frame-rect 70 115 6 15)
(send man :frame-rect 76 120 6 10)
(send man :frame-rect 83 130 5 4)
(send man :frame-rect 320 160 20 50)
(send man :frame-rect 318 210 25 10)
(send man :frame-rect 313 215 5 5)
(send man :frame-rect 337 220 6 5)
(send man :frame-rect 331 220 6 7)
(send man :frame-rect 325 220 6 10)
(send man :frame-rect 319 220 6 7)
(send man :paint-rect 123 340 52 10)
(send man :paint-rect 225 340 52 10)
(send man :draw-string "Not a self portrait." 125 375)
(send man :draw-color 'magenta)
(send man :paint-poly '((190 90) (210 90) (230 105) (170 105) (190 90)))
(send man :draw-color 'yellow)
(send man :paint-poly '((205 93) (220 60) (212 100) (205 93)))